home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / snip1292.zip / CAST.H < prev    next >
Text File  |  1992-12-26  |  1KB  |  24 lines
  1. /*
  2. **  public domain demo by Bob Stout
  3. */
  4.  
  5. #define CAST(new_type,old_object) (*((new_type *)&old_object))
  6.  
  7. #if 0
  8. *************************************************************************
  9. *                                                                       *
  10. *       /* Example of CAST macro at work        */                      *
  11. *                                                                       *
  12. *       union {                                                         *
  13. *               char    ch[4];                                          *
  14. *               int     i[2];                                           *
  15. *       } my_union;                                                     *
  16. *                                                                       *
  17. *       long    longvar;                                                *
  18. *                                                                       *
  19. *               longvar = (long)my_union;       /* Illegal cast */      *
  20. *               longvar = CAST(long, my_union); /* Legal cast   */      *
  21. *                                                                       *
  22. *************************************************************************
  23. #endif  /* 0 */
  24.